home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / GUIDED.TOURS / IIC.PLUS.TOUR / APPLE.PLAY / STARTUP (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1983-08-18  |  2.1 KB  |  59 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 1  PRINT  CHR$(21): GOSUB 521: TEXT : HOME : POKE  -16298,0: POKE  -16300,0: POKE  -16368,0: POKE 34,0: POKE 33,40: HOME :T$ = "The Apple at Play Menu": GOSUB 311: FOR U = 1 TO 40: PRINT "_";: NEXT U
  2. 5  PRINT : PRINT "  1.  Introduction": PRINT : PRINT "  2.  Apple 21": PRINT : PRINT "  3.  Financial Tools": PRINT : PRINT "  4.  Lemonade": PRINT : PRINT "  5.  Music Recital": PRINT : PRINT "  6.  Space Quarks"
  3. 11  PRINT : PRINT "  7.  Quick Quiz": PRINT : PRINT "  8.  Quit":T = 0: FOR I = 1 TO 8: IF  PEEK(I +839) = 1  THEN  HTAB (1): VTAB 2 +(2 *I): PRINT " "
  4. 21  IF  PEEK(I +839) = 1  THEN J = I +1:T = 1
  5. 22 T = 0
  6. 31  NEXT I: IF T < >1  THEN J = 1
  7. 41  GOSUB 321: VTAB 19: PRINT : PRINT "Type a number, or select with the UP or DOWN ARROW key. Then press RETURN.": FOR U = 1 TO 40: PRINT "_";: NEXT U
  8. 45  REM VTAB 24: PRINT "Copyright 1988 Apple Computer, Inc.";  
  9. 51  VTAB 21: HTAB 35: CALL  -868: GET CH$: IF  ASC(CH$) = 27  THEN  GOTO 51
  10. 61  IF  ASC(CH$) = 13  THEN  GOTO 221
  11. 71  IF  ASC(CH$) < >10  AND  ASC(CH$) < >11  THEN 131
  12. 81  IF  ASC(CH$) = 10  THEN K = J:J = J +1
  13. 91  IF  ASC(CH$) = 11  THEN K = J:J = J -1
  14. 101  IF J = 9  THEN J = 1
  15. 111  IF J = 0  THEN J = 8
  16. 121  GOSUB 421: GOSUB 321: GOTO 51
  17. 131  IF  ASC(CH$) = 81  OR  ASC(CH$) = 113  THEN K = J:J = 8: GOTO 121
  18. 141  IF  ASC(CH$) <49  OR  ASC(CH$) >56  THEN 51
  19. 151  VTAB 21: HTAB 35: PRINT CH$:K = J:J =  ASC(CH$) -48: GOSUB 421: GOSUB 321
  20. 161  VTAB 21: HTAB 36: GET RE$: IF  ASC(RE$) = 13  THEN 221
  21. 171  IF  ASC(RE$) = 8  THEN 51
  22. 181  IF  ASC(RE$) = 10  THEN K = J:J = J +1: GOTO 101
  23. 191  IF  ASC(RE$) = 11  THEN K = J:J = J -1: GOTO 101
  24. 201  IF  ASC(RE$) <49  OR  ASC(RE$) >56  THEN 161
  25. 211 CH$ = RE$: GOTO 151
  26. 221  HOME : VTAB 10: HTAB 12: PRINT "Please wait....": ON J GOTO 231,241,251,261,271,281,291,301
  27. 231  PRINT : PRINT  CHR$(4);"RUN PLAY"
  28. 241  PRINT : PRINT  CHR$(4);"RUN APPLE.21"
  29. 251  PRINT : PRINT  CHR$(4);"RUN FUN.W.FINANCE"
  30. 261  PRINT : PRINT  CHR$(4);"RUN LEMONADE"
  31. 271  PRINT : PRINT  CHR$(4);"RUN PLAY.MUSIC"
  32. 281  PRINT : PRINT  CHR$(4);"RUN SPACE.QUARKS"
  33. 291  PRINT : PRINT  CHR$(4)"RUN QUIZ"
  34. 301  PRINT : PRINT  CHR$(4);"PREFIX /TUTOR/MENU"
  35. 302  PRINT  CHR$(4);"-/TUTOR/BASIC.SYSTEM"
  36. 311 H = (40 - LEN(T$))/2: HTAB H: PRINT T$: RETURN 
  37. 321  ON J GOSUB 341,351,361,371,381,391,401,411
  38. 331  VTAB 2 +(J *2): HTAB 6: PRINT T$;
  39. 341 T$ = "<INTRODUCTION>": RETURN 
  40. 351 T$ = "<APPLE 21>": RETURN 
  41. 361 T$ = "<FINANCIAL TOOLS>": RETURN 
  42. 371 T$ = "<LEMONADE>": RETURN 
  43. 381 T$ = "<MUSIC RECITAL>": RETURN 
  44. 391 T$ = "<SPACE QUARKS>": RETURN 
  45. 401 T$ = "<QUICK QUIZ>": RETURN 
  46. 411 T$ = "<QUIT>": RETURN 
  47. 421  ON K GOSUB 441,451,461,471,481,491,501,511
  48. 431  VTAB 2 +(K *2): HTAB 6: PRINT T$;
  49. 441 T$ = " Introduction ": RETURN 
  50. 451 T$ = " Apple 21 ": RETURN 
  51. 461 T$ = " Financial Tools ": RETURN 
  52. 471 T$ = " Lemonade ": RETURN 
  53. 481 T$ = " Music Recital ": RETURN 
  54. 491 T$ = " Space Quarks ": RETURN 
  55. 501 T$ = " Quick Quiz ": RETURN 
  56. 511 T$ = " Quit ": RETURN 
  57. 521  FOR I = 768 TO 835: READ A: POKE I,A: NEXT I: DATA  173,50,190,72,173,51,190,72,169,30,141, 50,190,169,3,141,51,190,32,111,253,104, 141,51,190,104,141,50,190,96,32,27,253, 201,155,208,7,141,0,2,169,141,162,1,96, 162,0,32,117,253,160,2,138,145,105,200
  58. 531  DATA   169,0,145,105,200,169,2,145,105,76,57,213
  59. 541  FOR I = 850 TO 855: POKE I,0: NEXT I: RETURN